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PREFAZIONE 


Molti personal computer hanno un ottimo prezzo in rapporto 
alle prestazioni (che poi è la condizione principale per la loro 
diffusione) ma gli Amstrad sono in assoluto i computer ad 8 
bit con il rapporto più favorevole tanto da essere stati i primi 
home computer ad essere venduti completi di monitor mono- 
cromatico o a colori. 

Oltre alla loro convenienza gli Amstrad offrono anche delle 
prestazioni molto interessanti, e questo è anche dovuto al 
fatto che, essendo arrivati sul mercato da non molto, hanno 
potuto riassumere gran parte di quanto di meglio era stato 
fatto ed anche evitare alcuni degli errori commessi dai primi 
produttori di home computer. 

Particolarmente interessante è senz'altro il Locomotive BA- 
SIC dei vari CPC 464, CPC 664 e CPC 6128, che, oltre ad es- 
sere tra i più completi, dispone anche di alcune caratteristi- 
che innovative, come le istruzioni AFTER ed EVERY che con- 
sentono di offrire all'utente alcune forme di multitasking (in 
particolare l'elaborazione alternata di più parti del pro- 
gramma). 

Nei programmi del libro, che sono di tipo molto vario, vengo- 
no usate appunto le molte caratteristiche di questo compu- 
ter. 
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Ali nto atri ata SAL 


USO DEI PROGRAMMI 


Tutti i programmi sono registrati sulla cassetta allegata al li- 
bro con i nomi di A1, A2, eccetera, fino ad A23. 

| programmi possono essere caricati in memoria tramite l’i- 
struzione: 


LOAD “nome programma” 


dove ‘nome programma’ è rappresentato appunto da A1, A2, 
eccetera, come indicato nella lista nella pagina seguente. 
Se si vuole caricare in memoria il primo programma che si in- 
contra sul nastro è possibile usare l'istruzione: 


LOAD ” 

Se si vuole che il programma giri automaticamente subito do- 
po essere stato caricato si può usare l'istruzione: 

RUN “nome programma” 

oppure soltanto 

RUN ” 

Durante il funzionamento, il programma può essere fermato 
momentaneamente premendo una volta il tasto ESC (per 
continuare basta premere uno dei tasti), o definitivamente 
premendo due volte sempre il tasto ESC. 


Infine se si vuole resettare il computer senza spegnerlo oc- 
corre premere insieme i tasti CTRL - SHIFT - ESC. 


Programma 


ISTOGRAMMI VERTICALI 
ISTOGRAMMI ORIZZONTALI 
CILINDRI 3D 

DESIGN CARATTERI 
DISEGNATORE GRAFICO 
PLOTTER 

CURVE MATEMATICHE 
NEW YORK 

DISEGNI DI LINEE 

ITALIA 

NUMERI DIGITALI 

LETTURA VELOCE 
CRONOMETRO 

SCRITTE PUBBLICITARIE 
CONTAPEZZI 

FISICA DEI REATTORI NUCLEARI 
PIANO 4-OTTAVE 
PROGRAMMATORE DI SUONI 
SIMMETRICO 

TIRO ALLA FUNE 
ROULETTE 

FLIPPER GIAPPONESE 
ROMBOSPIRALE 


Nome 


AI 
A2 
AZ 
A4 
AS 
A6 
AT 
A8 
A9 
A10 
A11 
A12 
A13 
A14 
A15 
A16 
A17 
A18 
A19 
A20 
A21 
A22 
A23 


ISTOGRAMMI 
VERTICALI 


Il programma Istogrammi Verticali è il primo di tre program- 
mi di ‘Business Grafica’ vale a dire della rappresentazione in 
forma grafica di dati economici, tecnici, scientifici, eccetera. 
Il programma consente di visualizzare, sotto forma di barre 
verticali, fino ad otto valori numerici contemporaneamente. 
Facendo girare il programma, il computer chiede per prima 
cosa di inserire il titolo del grafico, della lunghezza di massi- 
mo 80 caratteri. 

Quindi chiede l'inserimento degli otto argomenti relativi ai 
dati e dei corrispondenti dati numerici. 

Se si desidera inserire meno di otto dati, ad esempio si vuole 
un grafico con solo 5 istogrammi, è sufficiente premere 
RETURN durante l'inserimento dell'argomento del sesto i- 
stogramma per far passare il programma alla fase di disegno 
del grafico. 

I valori numerici dei dati inseritidevono essere compresitra0 
e 5000, penserà poi il programma ad usare la scala più adatta 
ai valori inseriti; per esempio, se il valore più alto inserito è 
897, il programma disegnerà un grafico con un valore massi- 
mo di 1000. 

Se i valori da inserire sono più grandi di 5000, basta indicare 
nel titolo del grafico un fattore di moltiplicazione (ad esem- 
Dopo la visualizzazione del grafico, è possibile passare all’in- 
serimento dei dati per un nuovo grafico, premendo il tasto N. 


19060 ‘ % Business Grafica X 

1010 © ISTUGRAMMI VERTICALI 

10920” 

10930 

1040 

1054 

1060 

1070 MODE 1 

10809 INK 1,26:INK 9,0:INK 2,24:INK 3,3 

1099 PEN 1:PAPER G:BORDER W:CLS 

11090 SOUND I; > n d: SOUND 2,0,0,6 

1110 

1120 

1130 DIM Dbc8):DIM D$(3) 

1140 FOR 6=1 TO 8 

41159 D(6)=0:D$(6)="" 

1160 NEXT 6 

1170 N=69: CLS 

11909 Z$=SPACE$(40) 

1190 Z2$=2$+2$ 

12009 INPUT "Inserire titolo grafico (max 
30 caratteri) e geremere RETURN 

;iT$ 

1240 IF LEN(T$)}80 THEN T#$=LEFT$(T$,36) 
1220 IF LENC(T$)<S6 THEN T#$=T$+LEFT$2$,8 
O-LENIT$)) 

1230 FOR 6=1 TO 8 

1240 CLS 

1259 PRINT "Inserire argomento istogratita 
a";6; "(max 8 caratteri) e premere RETURN 
lo) premere solo RETURN per meno di 8 
dati" 

12609 PRINT 

1270 INPUT R$ 

1280 IF R$="" THEN 1386 

1290 IF LENGR$)}8 THEN R$=LEFT$(R$,8) 
13090 D$(6)=R$ 

1316 PRINT 


1320 PRINT "Inserire valore";65;"(8__5000 
} ";"e premere RETURN" 
1330 PRINT 

13409 INPUT v 

13509 IF Y<8 OR Y>5008 THEN GUTO 1320 
13609 D(6)=V 

1376 NEXT 6 

1380 CLS:R=6 

1399 FOR G=1 TO 8 

1400 IF D(63>R THEN R=D(6) 

1410 NEXT 6 

14208 RESTORE 

1430 FOR M=1 TO 9 

1440 READ N$,5$ 

1450 IF VALCN$:}=R THEN 1475 

14609 NEXT M 

1470 N=VALCN$)-196 

14850 PEN 8:PAPER 2 

14909 LOCATE 3,24:PRINT " PREMERE N PER 
UN ALTRO GRAFICO " 

15009 PEN 1:FAPER 8 

15106 FOR 6=1 TO 8 

1520 C=3+6X3 

1530 A$=CHR$(6+64) 

1549 LOCATE €,22:PRINT fAi$ 

15509 NEXT 6 

1560 LOCATE 31,9:PRINT N$ 

1570 LOCATE 31,15:FRINT S$ 

1580 LOCATE 31,21:PRINT "6" 

1590 PEN Q:PAPER 1 

1600 LOCATE 1,1:PRINT LEFT$(T$,40) 
1610 LOCATE 1,2:PRINT RIGHT$(T$,40) 
16520 PEN 1:PAPER 8 

16530 FOR 6=09 TO 7 

1648 L=INT «<6/3)+4 

16509 IF G6=0 OR 6=3 

1669 IF G=1 UR 6=4 

1679 IF 6=2 OR 6=5 


A$=CHR$(6+55; 

PEN B:PAPER 1 

LOCATE C,L:PRINT R$ 

PEN 1:PAPER & 

LOCATE C+2,L:PRINT D$(6+1) 
NEXT 6 


FOR 6=68 TO 268 STEP 20 


PLOT 55,6:DRAW 455,6,3 
IF 6=68 OR 6=168 OR 6=268 THEN PLUT 


NEXT 6 

PLOT 55, 709:DRAW 55,268,3 
PLOT 455,70:DRAW 455,268,3 
FOR 6=1 TO 8 
KITB+(G-12X4T,7T 
V=INT{D(6)/N+0,5) 


| FOR M=X TO K+35 


IF V>0 THEN PLUT M,69:DRAW M,T0+V,2 
NEXT M 
NEXT 6 


H$=INKEY$ 


IF H$="N" OR H$="n" THEN RUN 

GOTO 1870 

RETURN 

DATÀ "ig", "5", "20", "10", "50","%25"," 
"Sg" x "2049" P "190" P "Sgo" P "250", "10060" 


1920 DATA "500", "2000", "1000", "5000", "25 


Ho" 


ISTOGRAMMI 
ORIZZONTALI 


Il funzionamento del programma Istogrammi Orizzontali è 
del tutto simile a quello del programma precedente tranne 
per il fatto che i dati vengono visualizzati in maniera diversa 
(appunto orizzontalmente). 

Inoltre i dati inseriti possono essere compresi tra 0 e 6000 
(invece di 5000). 


$ Business Grafica X 
ISTUORAMMI ORIZZONTALI 
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1.26:INK 2,11:INK 6,0:INK 3 24 
BORDER B:PAPER d:CLS 
1,0,0,0:SUUND 2,0,8,0 


4,0,0,6 


FOR 6=1 TO 8 

D(Gi=0:D$8(6)="" 

NEST © 

N=09. LS 

2$=5FACE$ (405) 

2$=2$+23 

INPUT "Inserire titolo grafico (max 

89 caratteri) e premere RETU 

".T$ 


1210 
1220 


IF LENCT$))80 THEN T$=LEFT$(T$,80) 
IF LENCT$)<80 THEN T$=T$+LEFT$(Z$,8 


d-LENCT$)) 


1230 
1240 
1250 


pra 


a";6; 


(e) 


dati. 


1260 
1270 
1280 
1296 
13006 
1310 
1320 
} 

1336 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 


FOR 6=1 TO 8 

CLS 

PRINT "Inserire argomento istogramm 
"(max 8 caratteri) e premere RETURN 
premere solo RETURN per meno di 8 

PRINT 

INPUT R$ 

IF R$="" THEN 13886 

IF LEN{R$)>8 THEN R$=LEFT$(R$,8) 
D$(G)=R$ 

PRINT 

PRINT "Inserire valore";6;"(0__65008 

";"e premere RETURN" 

FRINT 

INPUT 1 

IF Y<0 UR 1>60090 THEN GUTO 1328 
D(G)=* 

NEST 6 

CLS :R=0 

FUR 6=1 TU 8 

IF DiG;>}R THEN R=D<c6) 

NERTO SU 

RESTORE 

FOR M=1 TO 9 

READ N$,5$,0$ 

IF VALCN$)}=R THEN 1476 

NEXT M 

N=VALN$)7475 

LOCATE 5,24:PEN d:PAPER 2:PRINT " 


PREMERE N PER UN’ALTRO GRAFICO ":PEN 1: 
FAFER 8 


1498 
$ 
1500 


LOCATE 39-INTC(LEN(N$)/2),21:PRINT N 


LOCATE 29-INTC(LENC(S$)72),21:PRINT S 


$ 
1510 
$ 
1520 
1530 
1540 
1550 
1. 
1560 
1570 
1580 


1590 


1600 
16510 
1620 
1630 
1640 
1650 


LOCATE 19-INTC(LENC(Q$)2),21:PRINT Q 


LOCATE 9,21:PRINT "0&* 

PEN B:PAPER 1 

LOCATE 1,1:PRINT LEFT$(T$,40) 
LOCATE 1,2:PRINT RIGHT$(T$,49):PEN 


PEN 1:PAPER 8 

L=18 

FOR 6=1 TO 8 

C=9-LEN(D$(8)) 

LOCATE C,L:PRINT D$(6) 

L=L-2 

NEXT 6 

FOR 6=135 TO 645 STEP 32 

PLOT G,105:DRAW 6,360,3 

IF 6=135 OR 6=295 OR 6=455 OR 6=615 


THEN PLOT 6,90:DRAW 6,3609,3 


1660 
1670 
1680 


60" ; 
9" 


NEXT è 

PLOT 135,105:DRAW 615,195,3 

PLOT 135,360: DRAW 615,360,3 

FOR 6=1 TO 8 

Y=130+(6-1)%32 

V=INT(D(6)/N+0.5) 

FOR M=Y-22 TO + 

IF V>@ THEN PLOT 136, M: DRAW 135+V,M 


NEXT M 

NEXT 6 

H$="f" 

H$=INKEY$ 

IF H$="N" OR H$="n" THEN RUN 
GOTO 1770 

RETURN 

DATA n Pda "iO", LO "30", "20; 10, “ 
"40", "20", "150", "100", "59", "300", "209 


CILINDRI 
TRIDIMENSIONALI 


L’ultimo programma di Business Grafica visualizza un massi- 
mo di sei dati sotto forma di cilindri tridimensionali; i dati in- 
seriti possono essere compresi tra 0 e 9999. 


1900 ‘ % Business Grafica % 

10180 CILINDRI TRIDIMENSIONALI 

1020 ‘ 

1030 

1040 

1050 

10650 

1070 

1086 INK 2,145:INK 6G,1:INK 1,26:INK 3,18 

1099 PEN 1:BORDER 1:PÀAPER d:CLS 

1100 SOUND 1,09,60,0:SOUND 2,09,60,8 

1110 

1120 

1130 DIM Dcé6i:DIM Dscòi 

1140 FOR 6=1 TO 6 

1150 D(6)=0:D$(6)="" 

1160 NEXT 6 

1170 N=0: CLS 

1180 2$=SPACE$(40) 

1190 2$=Z$+2$ 

1200 INPUT "Inserire titolo grafico (max 
80 caratteri) e premere RETU 

RN ";T$ 

1210 IF LEN(T$)>89 THEN T$=LEFT$:(T$,80) 

1220 IF LEN(T$)<80 THEN T$=T$+LEFT$(2$,89 

d-LENCT$;5) 


1236 FOR 6=1 TO è 

12409 CLS 

1259 PRINT "Inserire argomento CILINDRO" 

16;"(max 5 caratteri) e premere RETURN o 
premere solo RETURN per meno di 8 da 


ti" 

1260 PRINT 

1270 INPUT R$ 

1280 IF R$="" THEN 1334 

1290 IF LENcR$)>5 THEN R$=LEFT$(R$,5) 
13500 D$(6)=R$ 

1315 PRINT 

1320 PRINT "Inserire valore";6;"(0__9999 
)";"e premere RETURN " 

1339 PRINT 

1346 INPUT ‘ 

1350 IF Y<d OR Y}9399 THEN GUTO 1326 
1360 D<6)=' 

13709 NEXT 6 

1359 CLS:R=6 

1399 FOR G=1 TO è 

1406 IF D(6)>R THEN R=Di63) 

14169 NERT 6 

1420 N=R/200 

1439 PEN B:PAPER 3 

1440 LUCATE 4,24:PRINT " PREMERE N FER 
UN'ALTRO GRAFICO " 

14569 PEN 1:FAPER 8 

1466 FOR 6=1 TO 6 

1470 C=6%6-3 

1490 IF LEN<D3$(6))<5 THEN Ds$(6)=D$(6G)+LE 
FT$C" ",5-LEN(D$(6))) 

1499 LOCATE ©,22:PRINT D$C6) 

1506 NEXT 6 

15109 PEN U:PAPER 1 

1520 LOCATE 1,1:PRINT LEFT$(T$,406) 
1530 LOCATE 1,2:PRINT RIGHT$T$,40) 
1540 PAPER W:PEN 1 


U=6 
FOR 6=1 TO 6 


IF 6=1 OR 6=4 THEN Cal 
IF 6=2 OR 6=5 THEN C=2 
IF 6=3 OR 6=6 THEN €=3 
IF D(6)=08 THEN GOTO 1760 


F=D(6)7N 

FOR P=1 TO 360 
X=70:Y=90 
AA=K-40XCOS(P) 
BB=Y-15XSIN(P) 

DEG 

PLOT ARTU, BB+F,C 

IF BB>}=" THEN 17096 
PLOT RA+U, BB+F : DRAW 
NEXT P 

U=U+96 
A$=STR$CINT(DC(62)) 
C=6%6-4 
L=18-(D(6)/N+t169:/15 
LOCATE C,L:PRINT fA$ 
NEXT 6 

H$=INKEY$ 

IF H$="N" OR H$="n" 
GOTO 177 


AATU, BB, C 


THEN RUN 
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DESIGN 
CARATTERI 


| caratteri dell'’Amstrad sono ridefinibili tramite le istruzioni 
SYMBOL e SYMBOL AFTER (per il loro uso vedere il 
manuale) per cui è possibile creare i simboli che occorrono 
nel programma anche se questi non sono tra quelli disponibili 
nel set di caratteri delcomputer, inoltre, usando più caratteri 
definiti, si possono realizzare delle figure complesse senza 
dovere usare una lunga serie di istruzioni grafiche. 

Per semplificare il disegno dei caratteri definibili si può usare 
il programma ‘Design Caratteri’ che consente di disegnare, 
modificare e stampare uno o più caratteri definiti, aventi una 
matrice di 8 X 8 punti e calcolare i codici da inserire nelle 
istruzioni SYMBOL. 

Il disegno del nuovo carattere si può realizzare usando i 
quattro tasti di controllo cursore; oltre a questi tasti si può 
usare il tasto M per spostarsi senza disegnare o perfare delle 
modifiche, il tasto D per tornare al modo disegno, il tasto X 
per avere i codici del carattere disegnato fino a quel momen- 
to, il tasto C per avere la copia su stampante del carattere e 
dei codici ed il tasto CLR che annulla tutto e fa ripartire il 
programma. 

Il tasto C va premuto, ovviamente, se alcomputer è collegata 
una stampante. 


1500 
1616 
1920 
1036 


1040 
1056 
1650 MODE 1:INK @,0:INK 1,26 


13 


14 


1078 
1086 
1990 
1100 
1110 
1120 


INK 2,11:INK 3,6 

PEN 1:PAPER B:BORDER B:CLS 
SOUND 1,0,6,0:SOUND 2,0,0,0 
SOUND 4,0,9,80 


C$=C0HR$(150):D$=CHR$(154):E$=CHR$(1 


56) :F$=CHR$(149):1$=CHR$(147):M$=CHR$(15 


3) 
1130 


N$=CHR$(144):0$=CHR$ (143) :P$=CHR$C(2 


46): d$=CHR$ (247) :R$=0HR$(244) :S$$=CHR$(24 


FOR W=1 TO 3 
N$=N$+N$:D$=D$+D$ 

NEXT W 

DIM T(8,3) 

DIM S(83) 

L=2:0=15:D=1 

LOCATE 14,1:PRINT C$;D$;E$ 
FOR A=2 TO 9 

LOCATE 14, A:PRINT F$;N$;F$ 
NEXT A i 
LOCATE 14,10:PRINT I$;D$;M$ 
PEN 2 

LOCATE 5,14:PRINT P$;" ";0$;" ";R$, 


"";S$;" __ Tasti per disegnare" 


1270 


LOCATE 5,15:PRINT "D_Dbisegno M_Mod 


ifiche C_Copy" 


1280 
uovo 
1290 
1300 
1310 
1320 
1330 
1348 
1358 
1360 
1376 


LOCATE S,16:PRINT "X_Dati ELR_N 
carattere" 

PEN 1 

GOSUB 1566 

K$=INKEY$ 

IF K$<>"" THEN K=ASCCK$) 
IF K=16 THEN RUN 

IF K=240' THEN GOSUB 1468 
IF K=241 THEN GOSUB 1488 
IF K=242 THEN GBO0SUB 1506 
IF K=243 THEN GOSUB 1528 


IF K=68 OR K=100 THEN GUSUB 1546 

IF K=T7 OR K=199 THEN GOSUB 1556 

IF K=88 OR K=120 THEN GOSUB 1560 

IF K=67 OR K=99 THEN GOSUB 1658 
LOCATE C,L:PRINT 0$ 

IF D=9 THEN LOCATE C,L:PRINT CHR$C1 


TAL -1,6-14)=D 
K$="":K=0:G0T0 1318 
IF L=2 THEN RETURN 
L=L-1:RETURN 

IF L=9 THEN RETURN 
L=L+1: RETURN 

IF ©=15 THEN RETURN 
C=C-1: RETURN 

IF ©=22 THEN RETURN 


AL=KL+2%(8-B3 XTCA, B? 
SC{A)=KL 

NEXT B 

LOCATE 24, A+1:PRINT &L;" 
NEXT N 

RETURN 

GOSUB 15656 

PRINT #85 

PRINT #8 

PRINT #8 

FOR A=1 TO $ 

P$="" 

FOR B=1 TO 8 

IF TCA,B)=1 THEN P$=F$+"0" 
IF TA, B3=0 THEN P$=F$+"-" 
NEXT B 


ri 


FRINT #5,P8," 
HEKT A 

PRINT #5 
FETUEN 


cb 
145) 


Peppi 
-3 -1 21 -J 
Mor] 
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DISEGNATORE 
GRAFICO 


Con i molti caratteri grafici dell’Amstrad ed il programma Di- 
segnatore Grafico si possono realizzare facilmente dei di- 
segni a bassa risoluzione. 

Il programma chiede all’inizio di inserire il colore desiderato, 
trai 27 disponibili (da 0 a 26), peril bordo, ilfondo e icaratteri 
da disegnare. 

Quindi il disegno può essere realizzato tramite i quattro tasti 
di cursore. 

Ilcarattere o il simbolo grafico usato in quel momento può es- 
sere cambiato premendo uno dei tasti (pericaratteri) o usan- 
do i tasti TAB e ENTER (per i simboli), tasti che fanno rispetti- 
vamente diminuire o avanzare di uno il codice del carattere 
visualizzato (per il set di caratteri vedere il manuale del 
computer). 

Per cancellare basta premere lo spazio e muoversi lungo la 
parte da eliminare. 

Infine se si preme il tasto CLR si fa ripartire il programma dal- 
l’inizio. 

Il disegnatore usa un’area dello schermo di 40 X 24 caratteri. 


DISEGNATORE GRAFICO 


i ozio o 
(08) 
i Co 


Lor] 
NU SIT AI Le LI pa a 


Gruppo Editoriale Jackson 


laser ii o 


na 
Gioli i i 


MODE 1:INK 1,26 
INE 2S.,11:INE H,b 
PEN i :PAFER 0: BORDER 


pes 
(LAI 


nov 
no 
por 


CUI) 


Ci 
por) 


Li 
i 
1 
i 
i 
i 
i 
i 
i 


1096 
1100 
1110 
1120 


} 

1136 
1146 
1156 
) 

1160 
11706 
1186 
ò 

1190 
1200 
12160 
1220 
1230 
1240 
1256 
1260 
12708 


INPUT "Inserire colore BORDO (0--26 
e premere RETURN ";B 

PRINT 

IF B<6 OR B>26 THEN 1120 

INPUT "Inserire colore FONDO (8--26 
e premere RETURN ";P 

PRINT 

IF P<0 UR P>Y}26 THEN 1156 

INPUT "Inserire colore PENNA <60--26 
e premere RETURN ";I 

PRINT 

IF I<6 OR I>26 OR I=F THEN 1185 

INK O,P:INK 1,I 

BORDER B:PAPER B:PEN 1:CLS 

L=1:0=1:K=224 

K$=INKEY$ 

IF K$<>3"" THEN K=ASCC(K$) 

IF K=16 THEN RUN 

IF K<€>0 AND K<39 AND K<213 AND K<>1 


6 AND K<}2460 AND K<>}241 AND K<>243 AND K 
<> 242 THEN &=K 


1280 
1296 
1308 
1316 
1326 
13360 
1340 
1356 
1360 
1370 
1388 
1390 
1400 
1410 
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Kk=243 THEN GOSUB 1466 
k=242 THEN GOSUEB 1386 
k=2409 THEN GOSUE 1446 
K=241 THEN G0SUB 1426 
k=9 THEN GOSUB 14650 
K=13 THEN GOSUB 1496 

LOCATE C,L:PRINT "+" 

LOCATE C,L:PRINT CHR$CK) 

K=X 

GOTO 1240 

IF ©=1 THEN RETURN 


IF L=24 THEN RETURN 
L=L+1:RETURN 

IF L=1 THEN RETURN 

L=L-1:RETURN 

IF X>126 THEN X=X-1 


IF X=243 THEN X=239 
RETURN î 
IF X<255 THEN X=X+t1 
IF X=240 THEN X=244 
RETURN 
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PLOTTER 


Plotter è un altro programma per disegnare, ma ad alta 
risoluzione (320 X 200 pixel). 

All’inizio, il programma chiede di inserire il colore del bordo, 
del fondo e delle tre penne tra i 27 disponibili (da 0 a 26). 

Il disegno può essere realizzato premendo i quattro tasti di 
controllo cursore, che da soli disegnano nelle direzioni indi- 
cate sui tasti mentre, premuti insieme al tasto SHIFT dise- 
gnano in una direzione spostata di 45 gradi rispetto a quella 
indicata sul tasto (ad esempio il tasto con la freccia a destra 
premuto insieme a SHIFT farà muovere il puntino che 
disegna nella direzione in basso a destra); provare i tasti in 
pratica. 

Per selezionare i tre colori della penna basta premere uno 
dei tasti da 0 a 3, in particolare iltasto 0 seleziona ilcolore del 
fondo e serve per spostarsi senza disegnare o per modificare 
il disegno già fatto; per ritornare a disegnare basta seleziona- 
re uno degli altri tre colori. 

Infine per cancellare tutto e far ripartire il programma si può 
premere il tasto CLR. 


&X% PLOTTER &&% 


o 
= 


i o Co 
i pa pai Gi i 


[200] 
DR] 


G,G:INE 1,26 
INE 2,11:INK 3,15 
PEN 1:FAPER 6: EORDER 6:CL5 
SOUND 1,60,6,6G:SOUND 2 ci 


“a 
{ non] 


io Ci 
ni 


di 

161 
102 
16035 
1604 
1605 
luo 
167 
165 
169 


[10%] 
[204] pe 
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11006 
1110 
1120 
Ì 

1136 
1140 
) 

1156 
1160 
=“ L6) 
11706 


è 


INPUT "Inserire colore BORDO (0--26 
e premere RETURN ";B 

IF B<9 UR B>26 THEN GOTO 1120 

INPUT "Inserire colore FONDO (0--26 
e premere RETURN ";P 

IF P<89 OR P>26 THEN GOTO 1148 

INPUT "Inserire colore PENNA 1 (0 
e premere RETURN -";I° 

IF IA=P OR IA<0 OR If}26 THEN 1160 
"Inserire colore PENNA 2 (0°) 
e premere RETURN ";IE 

IF IB=F OR IB<6 OR IB>26 THEN 1188 


INPUT "Inserire colore PENNA 3 e) 


e premere RETURN ";IC 
IF IC=P OR IC<9 OUR IC>26 THEN 1268 


K=50:Y=50:D=1:C=1 
INK 1,IA:INK 2,IB:INK 3,IC 


BORDER E:PAPER P:CLS 

K$=INKEY$ 
K$<}"" THEN K=ASCCK$) 

, K=16 THEN RUN 

K=246 THEN GOSUB 14800 
K=243 THEN GOSUB 1426 
K=241 THEN GUSUB 1446 
Kk=242 THEN G0SUB 1468 
kK=244 THEN GOSUB 1480 
K=24T THEN GOSUB 15608 
K=245 THEN GOSUB 1526 
K=246 THEN G0SUB 1546 
K>Y4T AND K<52 THEN C=K-48 
C=8 THEN PLOT x,W,1 


K=0:G0T0 12589 
IF =398 THEN RETURN 
Y=Y+2:RETURN 
IF %=638 THEN RETURN 


K=N+2:RETURN 

IF Y=9 THEN RETURN 
Y=Y-2:RETURN 

IF X=@ THEN RETURN 
K=X-2:RETURN 

IF =398 OR &=633 THEN RETURN 


Y=y+2:X=K+2:RETURN 

IF Y=0 OR %=633 THEN RETURN 

Y=Y-2:X=K+2:RETURN 

IF Y=09 OR x=9 THEN RETURN 

Y=Y-2:8=K-2:RETURN 

vi Y=398 UR X=9 THEN RETURN 
=t+2:K=%-2:RETURN 


Lucio Sri 


CURVE 
MATEMATICHE 


Questo programma disegna in alta risoluzione le curve di al- 
cune funzioni matematiche. 


MATEMATICHE $$ 


da az 
Gi Zi i 


po 
dov] 


Gruppo Editoriale Jacksaori 


{Lost iL) 
por) 


n TA I STI CI pe 0] 


(hov] 


MODE LINK a,Ua: 
IME 2.11:INK 
FEH 1:FAFER B:E 
SOUND 


(Zi amo 
i az 


Vi 
Do LI 


nol 
por 


Li 
è i e I 


Po Pao papa 
> 
0 i a E i 


ou] 


= 


Aug + C(KKNZ1015:: DEAN 


Foo Piera 


DE AZZ DI AT A Se i fa 


LOI Lon 
(NIN MOV III Dov) 


W=1 TO 4000:NEZT 


i pa ba 


fo pa ai 
io Zi E 


i 
i 
di 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
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i 
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1 
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1279 €LS 

1289 INK 1,15 
1290 FOR X=6 TÙ 639 

1300 Y=0+L0G(K/5+1)£82 

13189 PLOT Xx, 

13209 NERT & 

1330 FUR X=6 TÙ 639 

1340 Y=0+L06(x/5+15)482 

1350 PLOT K,Y:DRAU K,6 

1360 NEXT X 

1370 FOR W=1 TO 49600:NEXT W 

1350 

1390 

1400 

1416 Ù + €. COS(PI/180%X(190+#£0.. 5 
6))X199) 

14209 NERT K 

1430 FOR x=0 TU 639 

1440 Y=199+(C05(PI-180%(150+X%0.56))X199 
b) 

1450 PLOT X,0+Y:DRANU X,6@ 

14650 NEXT & 
1476 FUR W=1 TÙ 
14509 INK 1,26:€ 


GGOG:NEXT W 


(e) 
LS 
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NEW YORK 


Il programma New York disegna sullo schermo il panorama 
di una città con due file di grattacieli. 

Ogni volta che si fa girare, il programma crea un panorama di- 
verso e casuale. 


1008 * X£% NEW YORK XXX 

1018 

1020 ‘ i Gaetano Marano 

1030 * 

1040 

1050 

1060 

1070 G,1:INK 1,24:INK 2,20:INK 3,6 
160830 K 4,26:INK 5,60:INK 6,2:INK 7,8 
1090 S,10:INK 9,12:INK 19,14 

1100 11,16: INK 12,18:INK 13,22 
11160 { 14,1,24:INK 15,16,11 

1120 L:PAPER 5:BORDER B:&LS 

4130 SOUND 1,0,0,0:SOUNI 2,0,0,6 

11409 SOUND 4,6,0,8 

1150 

1160 RANDOMIZE TIME 

1170 FOR A=1 TO 306 

1189 PLUT RNDc1)X639,229+RND(1})X18560, (8+I 
NTCRNDC1) KS; 

1199 NEXT A 

1200 K=5 

1210 DIM L(15) 

12209 DIM Hc155) 

1230 FOR A=1 TO 15 


1240 
1250 


Lif3=C(ce+INT CRND(10E2))k205 


H{A}=C(K+INT CRNDC1)%2+K3)3X15+INT 


(CENDCLIKK3-1) 


UNE GIO Si 
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Î 
i; 
1 
1 
1 
si 

A 
1 
i 


03 Li LI Li 


1 20 
io DA cai E 


[ER 
4 +4 
= 


28, 


NEKT A 

K=6 

FOR A=1 TO 15 

#=K+LCAI 

IF xX{640 THEN 

IF «3639 THEN 

MEKT À 
Lihi=039-C(K-LCA13 
A=639 

GOSUB 1406 

IF K=2 THEN 13596 

kK=2 

GOTO 1256 

GOTO0 135986 
Co=2+INT{RNDC(13%14) 

IF €C=14 THEN ©C=6 

IF cC=15 THEN CGE=T 

IF ©C=5 THEN Cesi 

FOR #=6 TO Hd STEP 4 
PLOT K-LCA3,2+Y:DRAW Kk-1,2+1, CC 
PLOT K-LCAI, G0+9 (DRAGO K-1,0+Y,5 
HERT + 


PLOT K-LC£A3,2:DRAD #-L0A2,HCh9, CC 


PLOT X%-1,2:DRAM &-1,H(h), CC 
RETURN 


DISEGNI 
DI LINEE 


Il programma disegna sullo schermo in alta risoluzione quat- 
tro diverse immagini grafiche una di seguito all’altra. 

In particolare ilterzo disegno può anche essere variato cam- 
biando il valore della variabile V alla linea 1380 con un valore 
diverso, sia maggiore che minore di 12. 


Gaetano Marano 


MODE 1:INK UO, 6:INE 

INK 2,11:INK 3,145 

PEN 1:FAPER 6b:BORDER 1:6L5 
SOUND 1,6,6,0:S0UND 2,06,0,6 
SRI 4, d,6,0 


1126 RANDOMIZE 

1130 INK 1,6 

11460 FOR fA=G TO 

1156 KE=15+25&RND: 

1160 RI=PI/1350%A 

11769 h=100+110XRND15 

1150 PLOT 317+K&C05<RD3,199+K&SINCEDI:DE 
‘AM 31T+H&C05RDI, 199+H&SINCEDO 
1190 NEST A 

1206 FOR W=1 TO 6OGG:NEST WU 
1210 CLS 

4ZZ0 INK 1,24 
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FOR fA=28 TO 200 STEP 8 

PLOT 317,A+199:DRAWU 190+8,139 
NEST A 

FUR A=20 TO 200 STEP 8 

FLUT 318, A+199:DRAN 535-A,199 
NEAT A 

FÙR f&=2 TO 180 STEP 8 

PLOT 317,A+4:PRAW 298-À4,198 
HEART A 

FOR A=2 TO 180 STEP S 

PLOT 3185,A+4: DRAW 336+4,196 
MEST È 

FOR W=1 TO 6600:NEXT W 

CLS 

INK 1,186 

DEFINT ,V:iMN=12 

DIM RCINI 

DIM Vivi 

P=P1%2 

FOR N=1 TO W 

A=PSVEN 

#CN)=C05C(A2%205+317 
TN3}=SINC(A1%195+199 

MERST N 

FOR A=1 TO N 

FOR B=1 TÙ 4 

PLOT &CAI, YCA3:DRAW XcB),YCB) 
HERT E 

NERT A 


GEeaeacaoo 


N° CO =] MOV 4a Gioi 


a © GGG DG 


[10] 


d 
3 
3 
3 
3 
3 
3 
3 
3 
4 


P=P152 
I=260:A=0:B=A+I:N=1 
R=h&P-1506 
«R=195%C05C(R)+317T 
YVA=195XSINcR3+200 
R=B%P 156 
AB=1954C05(R)+317T 
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YVB=195&SIN(R)+200 
PLOT KA,VYA:DRAW XB,YB 
A=A+I:B=A+I:N=N+t1 
IF N=19 THEN 1660 


GOTO 1568 
FOR W=1 TO 10000:NEXT W 
CLS :INK 1,26 
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ITALIA 


La serie di codici numerici inseriti nelle istruzioni DATA di 
questo programma, contengono le coordinate per disegnare 
i contorni dell’Italia. 

Così com'è, il programma è più che altro dimostrativo, 
tuttavia la parte principale che disegna l’Italia può essere 
inserita in altri programmi di tipo didattico, di quiz, eccetera. 
I punto di inizio del disegno, dipende dai valori assegnati alle 
variabili X e Y (linee 1130 e 1140). 


Fa 
Zu 


a i a a 
o a Go Go i 


i 


MODE 1 

INK i: 

INE «ZE . HE 
6 FEN 3:PAPFER È : BORDER 14:€L5 
SOUND 1,6,5 (SOUND 2,0,6,0 
SOUND 4,6, 


= pù papa bob 
(ho) 


(e 
(ANI on] 
i Qi ci 


d 
i 
ve) 
z 
te} 
(ui 
4 
e 
+ 
) 
n 
' 
as 


Ea K+1 


1256 | 
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1216 IF K>220 THEN 
1220 IF K>3T5 THEN 
1234 D=D-52 
1240 PLUT K+D,Y,C 
12569 GUTO 1176 
1260 GU0TU 1264 
1270 DATA 94,0,58,59,91,92,93,0,386,87,838 
,99,93,0,32,93,55,94,0,81,83,84,95,0 
1289 DATA 79,892,96,97,98,99,0,78,80,81,1 
06,101,102,103,0,64,65,72,78,194,105,0, 
12950 DATA 64,65, T1, 73,74, 75,76,77,78,103 
20,64,65,71,103,194,0 
13065 DATA 63,67,68,79,105,09,59,61,62,68, 
T0,104,0,54,55,56,57,58,60,69,104,0 
1310 DATA 53,101,104,09,54 ,100,101,102,10 
104 ,195,0,55, 100 101,106, 107,0 
320 DATA 55,99, 107,09,56,95,96,97,98,0,5 
134,0,54,94,6 
si DOLO: 2194 34, 0,52,95,0,53,95,0,53, 


94, a, 33,94, 9, 53,67T,68,69,94 
7a, T1,94, 
o papiri 95,9,56,57,58,5 
,9,59,62,75,76,96,0 
53, 62, T7,97,9,58,59,60,61,78,9 
,î35,99,100, 9,79, 101,0,79,102,0 
sta DATA T9,103,0,79,104,105,0,80, 105,6 
,80,195,0,81,195,0,851,106,0,75,851,107,0 
1389 DATA S1,832,107,09,53,107,0,77,78,79, 
93,197,0,79,54,108,0,76,85, 109,0 
1399 DATA 865,199,0,36,87,838,110,0,83,85, 
359,111,09,90,112,9,90,113,114,0 
1450 DATA 91,92,115,9,93,116,117,0,94,11 
3,119,122,123,124,125,0,94,120,121,126,0 
1419 DATA 95,125,09,96,124,0,97,124,0,98, 
99,125,126,9,69,100,192,103,127,128,129 
1425 DATA 0,62,69,101,104,195,1096 107,13 
G.,0,61,67T,68,70,71,193,131,132,133,0 


34_ 


1430 DATA 66,72,103,134,135,0,60,65,71,1 
09,136,8 

1440 DATA 60,61,62,63,64,72,109,119,111, 
137,138,0,60,72,109,112,139,140,6 

1450 DATA 60,61,72,107,113,114,115,141,1 
42,0,62,73,112,113,118,134,135,143,0 
14668 DATA 62,73,110,117,133,136,144,0,62 
,î2,117,132,137,138,139,140,145,0 

1470 DATA 62,72,117,132,142,146,09,63,7T1, 
117,118,131,143,147,0 

1499 DATA 62,72,119,122,131,143,146, 0,62 
+72,120,121,123,130,143,144,146,9 

1499 DATA 62,72,123,124,131,145,146,0,63 
,T2,124,1309,0,63,72,124,130,0 

1599 DATA 62,63,72,125,130,0,62,71,125,1 
31,132,133,0,61,71,126,134,0 

1519 DATA 62,71,126,135,0,61,71,127,135, 
9,59,61,67,68,69,71,127,135,0 

1529 DATA 62,66, 70,127,135,0,61,63,66,12 
7,135,0,63,64,65,128,133,134,135,0 

1530 DATA 128,132,0,128,131,0,125,126,12 
7,131,09,118,126,131,0,116,126,131,0 

1540 DATA 126,130,131,0,118,125,129,0,12 
2,124,125,123,06 

15509 DATA 103,117,120,121,122,124,123,8, 
98,101,102,103,114,115,116,118,119 

1560 DATA 122,424,128,0,92,97,99,100,104 
,105,109,110,111,112,113,121,124,125 
1579 DATA 126,127,0,94,96,105,107,108,12 
0,9,96,120,0,96,119,0,97,119,0 

1589 DATA 98,99,100,101,119,0,192,103,11 
8,0,194,118,0,195,106,118,0 

15909 DATA 107,108,1209,0,109,110,111,112, 
121,0,113,120,0,114,119,0 

1600 DATA 91,114,115,118,119,09,92,116,11 
",0,1111 


NUMERI 
DIGITALI 


Se si vogliono inserire dei numeri di varie dimensioni nel mo- 
do grafico ad alta risoluzione, si può usare la routine Numeri 
Digitali che consente appunto di scrivere delle cifre digitali a 
sette segmenti. 

Per scrivere un numero bisogna inserire il numero stesso (tra 
O e 9) nella variabile N, la larghezza dei segmenti orizzontali 
(in pixel) nella variabile L, l'altezza dei segmenti verticali nel- 
la variabile H e le coordinate alle quali va scritto il numero nel- 
le variabili X e Y. 

Se le cifre devono essere tutte della stessa dimensione, i va- 
lori Le H possono essere stabiliti una sola volta all’inizio, inol- 
tre se si devono scrivere più numeri di seguito, occorre ad o- 
gni numero incrementare il valore di X per non sovrapporre le 
cifre. 


PROGRAMMIA DIMOSTRATIVO 


MODE 1:INK 0,0:INK 1, 

INK 2,11:INK 3,15 

PEN 1:PAFER 0: BORDER 1:CLS 

SOUND 1,0,0,0:SUUND 2,0,0,8 
* SOUND 4,0,0,0 

RANDOMIZE TIME 


FOR A=1 TO 20 
X=209+RNDC(1) 4588 
Y=190+RNDC(1)X2850 
L=19+RND 15430 
H=10+RNDC1)436 
N=RNDC1)X16 


C=1+INTCRNDC(1383) 

GOSUE Tadao 

NENT & 

FOR W=1 TO SGGG:NEXT W:CL5:END 


$% NUMERI DIGITALI X£ 


= © 


ci i 


INTEND:IF N<0 OR N39 THEN RETURN 
N=é& OR N=2 OR N=3 OR N=5 OR N=6 
UR Dr SU OR N=39 THEN PLOT &,#-4:DRA 


4 -31-1-j1-1-]-1-]1-j(PpPHpHHH 


DD Gi mi Gili i i zi Ci 01 LI II La 
TIT GR © I a br co 


<= 


dE07 


H=3 OR N=4 DE N=5 OR N= 
THEN PLOT X,Y-4-H:DRAW 


NH=z OR N=3 OR N=5 OR N=b 
THEN PLOT K&,7-4-H-H:DEAMW È 


(OR N=1 OR N=2 OR N=3 OR Ns: 
3 OR N=9 THEN FLOT X+L,v-4:1 
C 


T4LO era N=6 OR N=1 OR N=3 OR N=4 OR N=5 
OR N=6 OR N=T OR N=5 OR N=3 THEN FLOT + 
L,Y-4-H: DREAM K+L,#-4-H-H,C 

T120 IF N=0 OR N=2 OR N=6 OR I THEN FL 
OTO N, Y-4-H:BRAM &,Y-4-H-H,£ 

7130 IF N=@0 GR N=4 OR N=5 OR N=6 OF N=8 
OR N=9 THEN FLOT X,4-4:DRAM K,Y-4-H,£ 
(140 RETURN x 
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LETTURA 
VELOCE 


Questo programma può essere usato per incrementare la 
propria velocità di lettura. In una serie di istruzioni DATA so- 
no contenute 200 parole che vengono visualizzate in manie- 
ra casuale e per breve tempo in un riquadro sullo schermo. 
La prima frase viene sempre visualizzata per un tempo di 0.1 
secondi che viene indicato in anticipo. 

Sparita la frase il computer chiede di scriverla, quindi con- 
fronta la frase scritta con quella appena visualizzata. 

Se la frase inserita è uguale a quella scelta dal computer e- 
sce la scritta ‘Frase: * ESATTA +’, se invece la frase inserita è 
diversa da quella visualizzata esce la scritta ‘Frase: SBA- 
GLIATA!!!?. 

Inoltre, ogni volta che si riconosce esattamente una frase, il 
tempo di visualizzazione della successiva viene dimezzato 
(fino ad un minimo di 0.02 secondi), mentre ogni volta che si 
sbaglia viene raddoppiato (fino ad un massimo di 1 sec.). 
Alle 200 parole già incluse nel programma se ne possono ag- 
giungere molte altre, inserendo le nuove parole o frasi (di 
massimo 20 caratteri) in una serie di istruzioni DATA; l’ultima 
linea deve essere sempre uguale alla linea 9998 (vedere 
listato) che contiene un carattere usato dal programma per 
riconoscere la fine della lista durante il conteggio delle frasi. 


i6Ga ‘ Xi& LETTURA VELOCE £££ 
16189 ‘ 

1020 

1030 


1040 
1650 


10960 MODE 1:INK 1,26:INK 0,6 
1076 INK Z,11:INK 3,15 
1059 PEN 2:PAPER d:BORDER &:CLS 
16096 SOUND 1,0,09,0:SOUND 2,09,9,0 
11080 SURI 4,09,9,0 
1118 
1150 A$=CHR8$ (15600 :D$=CHR$(154):DD$=CHRs: 
154) :E$=CHR% (156) :F3=CHR$(149):65$=CHR$(1 
475 :H$=CHR$ 153) 
11355 FUR W=1 TO 4 
O D$=P$+D%# 

MERT W 

DD$=DD#+DD3 

D$=D#$+D10#+DI3 

E$=" 

B$=B$+BE# 

LOCATE 10,5 

PRINT A*X;D4$;E# 

LUCATE 10,6 

PRINT F$;" 

LOCATE 19,7 

PRINT 6$;D$;H% 

PEN 1 

RESTORE 

FUR A=1 TO 160006 

READ c&:IF c$="#" THEN 1316 

NERT A 

NF=À-1 

DIM T$c6; 

T$(1)="0120, 

T$(2)="0450,6 

T$(3)="G9160,; 

T$(4)="1920,2 

T$(5)="4550, 

T$(65="309 1 5 

TA=3 

PEN 1:FO0R T=1T 

RANDOMIZE TIME 


LOCATE 19,10:PEN 3:PRINT "Durata fr 
"; RIGHT$CT$(TX2,9) 

FOR T=1 TO 1060:NEXT T 

FEN 1 

RESTORE 

FOR A=1 TO INTENFERNDC1)) 

READ F$:NEXT A 

P=VAL CLEFT$ (T$CTX),33) 

READ F$:IF LEN <F$)})20 THEN F$=LEFT 


(F$,260) 


LOCATE 11,6:PRINT F# 
FOR T=1 TO F:NEST T 
LOCATE 11,6:PRINT " 


FOR T=1 TO TS50:NEST T 
LOCATE 3,13 
PRINT" Seri frase che ave 


LOCATE 4,15 
INPUT x%$ 
R=G:IF UPPER$(«$5=UFPER8F#) THEN F 


IF R=1 THEN LOCATE 160,16:PEN 1:PRIN 


Frase: & ESATTA &X “";B$;B#,E4;B3; 


mi 


da (I 


un 


THEN LOCATE 109,10:FEN 1:PRIN 
SEAGLIATA |! ";b$;E$;B$;B# 


HD TA>1 THEN T&a=hka-1 
AND Ta<6 THEN T&=TE+1 


CATALOGO PAROLE E FRASI 
"BIANCO" 

"ROSSÙ" 

"VERDE" 

"GIALLO" 

"BLU" 


pr] 


"NERO" 

"ROMA" 
"MILANO" 
"FIRENZE" 
"NAPOLI" 
"PARIGI" 
"BERLINO" 
"LONDRA" 
"MADRID" 

"NEW HORK" 
"LOS ANGELES" 
"ATENE" 
"TOKYO" 
"MOSCA" 
"BUENOS AIRES" 
"GINEVRA" 
"MICROPRUOCESSOURE" 
"EEVEUARI" 
"MONITOR" 
"AMSTRAD" 
"AEREÙ" 
"NAVE" 
"TRENO" 
"COMPUTER" 
"FOTOGRAFIA" 
"ATTRICE" 
"AUTOMOBILE" 
"CREDIT CARD" 
"LINEAR" 
"ARTICOLO" 
"INDIRIZZO" 
"MOTORE" 
"CAPIRE" 
"VOLARE" 
"CRMMINARE" 
"NAPOLEONE" 
"GARIBALDI" 
"CESARE" 


SI PI PI PI BI RI BI BI RI DI DI Po fo fo ha 
A GIP Go 0-1 Ti 
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Hi 
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ù 


di Le a di LI LI I II LI 01 GI QI I Pi fo ba pa ha 
GP sd C+] TNA Gi uo 0-1 


RI NIORI: RI ha 


"NASHINGTON" 
"PRINTER" 
"Uomo" 
"DONNA" 
"CASA" 
"SCALA" 
"ASCENSORE" 
"RUOTA" 
"LIBRO" 
"JACKSON" 
"BYTE" 
"BUONO" 
"CATTIVO" 
"VELOCE" 
"LENTO" 
"GRANDE" 
"PICCOLO" 
"LEGGERO" 
"PESANTE" 
"MARIO" 
"LAURA" 
"FRANCO" 
"ANTONIO" 
"MARIA" 
"FRANCESCO" 
"BARBARA" 
"GATTI" 
"ELEFANTE" 
"DELFINO" 
"GIRAFFA" 
"ANTILOPE" 
"LEONE" 
"CONDOR" 
"TIGRE" 
"DOBERMAN" 
"IPPOPOTAMO" 
"CANE" 
"BASIC" 
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"PASCAL" 
"FORTRAN" 
“FORTH" 
"LISP" 
"PROLOG" 
"Lo6o" 
"COBOL" 
"APL* 
"CALENDARIO" 
"TRANSISTOR" 
"STOFFA" 
"TEATRO" 
"RIVISTA" 
"SEMAFORO" 
"VOLERE" 
"CANTARE" 
"JET" 
"SCRIVERE" 
"LEGGERE" 
"CALIFORNIA" 
"aMIco" 
"SAPORI" 
"PROGRAMMA" 
"DEBUG" 
"DISK" 
"MUSICA" 
"CANTANTE" 
"TELEFONO" 
"TELEGRAFO" 
"TELEX" 
"CASSETTA" 
"LOCALI" 
"NETWORK" 
"JAZZ" 
"STATI" 
"FORMULA" 
"BORSA" 
"PARTICELLA" 


isa co ca 


si al i 00 0 0 I 


“LU «Di 


A Goo ;« i = © © i i i 
= Ci © D 01 DN Ghip i ui GI 21 Mm UO La GI I 


TAI 


Z 
é 
è 
È 
È 
i 
z 
2 
è 
2 
Gi 
è 
é 
è 


"PROTONE" 
"QUARK" 
"NEUTRINO" 
"ELETTRONE" 
"ACQUA" 
"ARANCIA" 
"ANANAS" 
"POMODORO" 
"KIWI" 
"TESTA" 
"BRACCIO" 
"GAMBA" 
"OCCHI" 
"NASO" 
"CUORE" 
"UDIRE" 
"VEDERE" 
"GIACCA" 
"CRAVATTA" 
"METRO" 
"INCH" 
"CACCIAVITE" 
"CARBURATORE" 
‘"STETOSCOPIO" 
"PAROLE" 
"PAGINE" 
"CONTENITORE" 
"DECOLLO" 
"DESIGN" 
"ARTISTA" 
"RAGIONE" 
"NASTRO" 
"MICROFONO" 
"STRUMENTO" 
"PIANOFORTE" 
"CLARINETTO" 
"sgx" 
"SYNTHESIZER" 


"ECONOMIA" 
"MONETA". 
"DOLLARO" 
"STERLINA" 
"CAMBIO" 
"SOFFITTA" 
"PANINO" 
"SPAGHETTI" 
"HAMEURGHER" 
"WHISKY" 
"CANCELLARE" 
"MEMORIA" 
"AUTOBUS" 
"COMBINAZIONE" 
"URAGANO" 
"SPACE SHUTTLE" 
"ASTRONAUTA" 
"PIOGGIA" 
"CAMINETTO" 
"STRADA" 
"PERCORRERE" 
VINDUSTRIA" 
"INGRANAGGIO" 
"RIVISTA" 
"UNIX" 
"BLOCCHETTO" 
"DINOSAURO" 
"DIZIONARIÙ" 
"VIDEOGAMES" 
"STAR WARS" 
"PRODUZIONE" 
"ALLENAMENTO" 
"EASKET" 
"DISPLAY" 
"PIXEL" 
"LOGARITMO" 
"TRIGUNOMETRIA" 
"HOBBY" 
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DATA "TELEFILM" 
DATA "NOTIZIE" 
DATA "SOPRANO" 
DATA "PENULTIMA" 
DATÀ "ULTIMA" 
DATA "#" 

‘FINE LISTÀ 


(Va vs] 


z 
è 
2 
(4 
2 
é 
9 


OO ppp 


sO «Db Gi o 
wo 0 Gioso 0-1 


ul 


CRONOMETRO 


Il programma Cronometro permette di misurare i tempi e di 
visualizzarli in ore, minuti e secondi. 

Il cronometro è controllato dai tasti Z (Start), X (Lap, tempo 
intermedio) e C (Stop). 
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io ai da 
LA] 
Li Gi 


Gruppo Editorial 


Ma 
LI 0 TL 4a Gi fi 
Gi Gi i 


Gi i i 


Soda 
DOC AALI 
ii 


(acri) 
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INK 2,254:INE 3, 
FEN 2:FAPER d:EORDER 1:€ 
SUUND 1,0,4,5:S0UND 2,0, 


Pio Pip 
pPpaoepPrrfrpEHE 
0 =] Ti 1 La Li bo poi 
A aio i i 
-- D- D--- n 
e 0» 0 -- 20 


_- filo fi 


1218 LOCATE 14,2:PRINT "hr mim 
1220 LUCATE 4,5:PRINT "tasti: 
K_LAP C_STOP" 
LOCATE 14,4:PRINT "66 
K$=INKEY$ | 
IFK$<>"" THEN K=&SCcKs) 
IF K=90 OR K=122' THEN G0T0 
IF K=88 OR K=120 THEN K=5:GGT0 
GOTO 1248 
V=TIME 
LOCATE 14,4:PRINT "66 
GOSUE 1376 
K$=INKEY$ 
IF_K&$€>"" THEN K=ASCcCK$) 
IF K=é67 OR K=99 THEN GUTO 1246 
IF K=88 OR K=120 THEN K=S5:G0T0 1246 


Ù 
S 
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e; 
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E fol feno fsi pa 


(DTA 
LU Ri > 


GUTO 1316 
T=INT(TIME-V3=-303 
H=INTAT- 3650600) 


M=INT£T-606) 

T=T-ME6aG 

S=INTAT=100 

C=T-SKk160 

Hs=S5TR# (Hi 

M&=5TR$ (Mi 

S5=5TR$ (51) 

CE=SSTRE (0) 

LOCATE 16-LEN“H$},4:FRINT H$ 
LOCATE 2i-LENM#3,4:FRINT M#$ 
LUCATE 26-LEN(5%83,4:FRINT S$ 
LOCATE ST,4:PRINT C# 

RETURN 
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SCRITTE 
PUBBLICITARIE 


Il programma chiede di inserire per prima cosa un testo di 
massimo 200 caratteri che può contenere, ad esempio, un 
messaggio pubblicitario, una serie di prezzi, delle quota- 
zioni di borsa, delle offerte speciali, dei comunicati impor- 
tanti, eccetera. Quindi si deve inserire la velocità di rotazione 
delle scritte con un valore tra 1 (più veloce) a 10 (più lenta). 
Per inserire una frase diversa occorre fermare il programma 
premendo due volte il tasto ESC e quindi dare di nuovo RUN. 
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sori 


MODE 1:INE 

INE <,26:INK 3, 

PEN 1:PAPER O: FURDER 1:CL5 
SOUND 1,6,0,0:S0UNI 2,60,64,84 
SR 4,0,0,0 


Gi 


io 
Di 23) TM 10 da Lo BI 
i 


[un] 
Ci 


[acri] 
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4$=CHR${154) 

FOR G=1 TO 39 

W&=0$+CHR$ (154) 

HEXT @ 

INFUT "Inserire 

ii e premere 

CLS 
1159 INPUT "Inserire velocita’ (1-16) 
e premere RETURN ";T:IF T<i 


UR T>109 THEN 1158 
1190 CLS 
1200 PEN 3 
4Z1I0 LOCATE 1,4:PRINT W$ 
1220 LOCATE 1,5:FRINT W$ 
1230 LOCATE 1,9:FRINT W$ 
1240 LUCATE 1,10:PRINT W$ 
PEN 1 
S$=5PÀCES(40) 
IF LENCA8)<40 THEN Hs=LEFT$(5$,40-L 


IF LENCA$))39 THEN H8=" É 
E$=6$+H 

C$=B# 

LOCATE 1,T:PRINT LEFT8 (08,40) 
C$=RIGHT$ <(C$, LENCC$)-1) 

IF LENCC8)<40 THEN C$=C$+B$ 

FOR D=1 TO 20£T:NEXT D 

GUTO 1310 


G 
H 
[t] 


pori 
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i = 
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CONTAPEZZI 


Un uso insolito del computer può essere quello di Conta- 
pezzi capace di contare da 0 a 99.999.999 pezzi. 
Facendo girare il programma, ogni volta che si preme RE- 
TURN il numero viene incrementato di uno. Oltre a ciò, si può 
inserire anche un numero qualsiasi da aggiungere (per e- 
sempio 334925) che premendo RETURN viene sommato al 
numero presente sullo schermo oppure sottratto, se il nume- 
ro inserito è preceduto dal segno —. 

Se si cerca di sommare o di sottrarre un numero che farebbe 
scendere il totale sotto lo 0 o lo farebbe salire oltre il massi- 
mo, il programma fa uscire sul video la frase ‘NUMERO ER- 
RATO O ECCESSIVO. 
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MODE 1:INK G,0:INK 1,26 

INK 2,11:INK 3,15 

PEN 1:FAPER G:EORDER Q:CL5 
SOUND 1,0,6,69:S0UNI 2,0,0,6 


SUUNI 4,0,0,6 


co 


1 
1 
1 
i 
16 
1 
1 
1 
1 


SYMEOL 255,96,144,144,96,0,60,6,5 
B$=CHR$ (150) :C$=CHR8(156):D$=CHR$(1 
47) :E$=CHR$ (153) :F#$#=CHR$(151):5$=CHR$(15 
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1140 H$=CHR#$ (1589) :1$=CHR$(155):L$=CHR$(1 
49):M3$=CHR$ (145) :0$=CHR$(255):X$=CHR$(14 
3) 
11509 SP$=SPACE8(48; 
11659 FEN 2 
1170 FRINT " Premere RETURN per un sol 
o pezzo" 
1156 PRINT 
1196 PRINT o introdurre N";0$;" pezz 
i in piu” 
1209 PRINT 
1219 PRINT " in meno (con -) e premere 
RETURN." 
12264 PEN 1 
1239 LUCATE S,125:PRINT B$;C#$;B$;,C$;E3;C3 
1B$;C$;H$ 
1249 LOCATE 5,13:PRINT Fé;E$;F8;" ";E$;)E 
$;B$#;E$;LÉ$ 
1258 LOCATE :PRINT M$;" ";D$;E$;D$;E 
$;D$;E$;1# 
N=U 
C=6 
PEN 3 
LOCATE 2: INPUT N$ 
PEN 1 
LOCATE 1,22:PRINT SPé 
IF N$="" THEN N8$="1" 
IF ASC{N$)<>45 THEN Pé=N$:GO0T0 13546 
IF ASCN$)=45 THEN P#=RIGHT$(N$,LEN 
(N$-1):60T0 1406 
1350 FOR A=1 TO LENN$) 
13560 IF ASC(P$)<45 UR dASCCP$3)57 THEN GU 
TO 1530 
1370 P$=RIGHT$(P8,LENCP$)-1) 
1388 NEXT A 
13989 60T0 1445 
14609 FOR A=2 TO LENCN$3 
14109 IF ASC(P$3<49 OR ASC(P$)>57 THEN 60 


TÙ 1559 

1420 P$=RIGHT$<(P$,LEN(F$)-1) 

14389 NEXT A 

1440 IF C(N+VALC(N$))}(1090000000-1) OR (Nt 

VAL(N$))<68 THEN GUTO 1538 

1450 N=N+VALN$) 

1460 Ns="1" 

1470 A$=STRS(N) 

1439 A$=RIGHT$<(A$, LENCA$)-1i 

1490 IF LENCA$)<8 THEN f$=A8+LEFT$(" 
",8-LENCA$)) 

1500 FOR P=1 TO 8 

1519 C=PX2+15 

1520 J=ASC(A$)-47 

1539 IF J=-15 THEN J=11 

1549 UN J GOSUE 1630, 16T0,1T19,1750,1790 

,1330,1870,1910,1950,1930, 26036 

1559 A$=RIGHT$(A$, LENC(A$I-1) 

1560 NEXT P 

15TO GOTÙ 1278 


1 1589 LOCATE 5,18:PEN 2:PAPER 1:PRINT " 
C 


NUMERO ERRATO 0 Ecc 
a 
1590 A$="0Q" 

1609 FOR T=1 TO 2900:NEXT T 
1619 LOCATE 1,15:PRINT SP$ 
16209 G0T0 1270 

1630 LOCATE :PRINT È$;C$ 
1649 LOCATE ©,13:PRINT L$;L$ 
1650 LOCATE :PRINT D$;E% 
1660 RETURN ; 

1679 LOCATE :PRINT Wa 
1689 LOCATE :PRINT VELE 
1699 LOCATE C,14:PRINT et 
1700 RETURN 

17149 LOCATE :PRINT B8$;C$ 
1720 LOCATE C,13:PRINT B$;E$ 
1730 LOCATE €,14:PRINT D$;E# 


ESSIVO ":PEN 1:PAPER 


RETURN 

LOCATE C,123:PRINT 
LOCATE 13:PRINT 
LOCATE 14 :PRINT 
RETURN 

LOCATE ©, 12:PRINT 
LOCATE C,13:PRINT 
LOCATE ©,14:PRINT 
RETURN 

LOCATE C,15:FRINT 
LOCATE €,135:PRINT, 
LOCATE ©,14:PRINT 
RETURN 

LOCATE C,12:FPRINT 
LOCATE C,15:PRINT 
LOCATE &,14:PRINT 
RETURN 

LOCATE C,12:PRINT 
LOCATE €,13:PRINT 
LOCATE ©£,14:FRINT 
RETURN 

LOCATE £,12:FRINT 
LOCATE €, 13:FRINT 
LOCATE £,14:FRINT 
RETURN 

LOCATE ©,123:FRINT 
LOCATE C,135:PRINT 
LOCATE €©,14:FRINT 
RETUEMN 

LOCATE C.,15:FRINT 
LOCATE C,135:PRINT 
LOCATE ©,44:PRINT 
RETURN 
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FISICA 
DEI REATTORI 
NUCLEARI 


Il programma simula il processo di ‘fissione nucleare’ che è 
alla base del funzionamento appunto delle centrali nucleari 
che producono energia. 

La fissione nucleare è una reazione provocata da neutroni 
veloci che colpiscono degli atomi di Uranio 235 i quali si 
spaccano producendo due atomi più piccoli di Bario e Krypto 
ed altri due neutroni che colpendo a loro volta degli atomi di 
Uranio provocano la cosiddetta ‘reazione a catena’. La rea- 
zione produce anche energia sfruttata per produrre calore 
ed elettricità. 

Il programma produce un’animazione che può essere vista in 
modo lento (premendo il tasto L) o in modo veloce (tasto V), il 
tasto R fa ritornare il programma allo stato iniziale. 


FISICA DEI REATTORI 
NUCLEARI 


MODE 1:INK 0,6:INK 1,26 

INK 2,11:INK 3,15 

PEN 2:FAPER B:BORDER 1:C€L5 
SOUND 1,60,G,0:S0UND 2,6,60,0 
SOUND 4,0,0,0 


0$=CHR$ (1440) :(W$=CHR$ (227) :P$=CHR5$(2 


:57 


1146 LOCATE &,1:PRINT " SIMULATORE FISSI 
SHE RAG AREE 
LOCATE 1,2:FRINT 


LOCATE 1,3:FRINT "L_Lento" 
LOCATE 1,5 :PRINT "V_ Veloce" 
LOCATE 1,T:FRLNT "R_Ripoete" 
LOCATE 28,5:PEN 1:FRINT 08; "_Nseutro 


LOCATE 298,4:PEN Z2:PRINT F$;" Uranio 


S:PRINT "o_Bario 13 


23, 6:PEN 1:FRINT U$;"_Kryupto 


ha 


s3:PEN 1:PRINT G$:FEN 2 
S:PRINT P$ 
14 :FRINT Pà 
nt: PRINT F$ 
:PRINT F$ 
:PRINT Pé 
:PRINT-P$ 
:PRINT P$# 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
k$= INKEY 


DO GI BI PO CO fer fa fa 
23 Lai [00] 


dt hi fu e - 


OR K$="L" THEN T=100:K$= 


1330 IF Ké="u" OR K$="VW" THEN T=1:Ks="": 
GOTO 1350 

1349 GOTÙ 1318 

1355 FOR A=4 TO 7 

1360 PEN 1 

1378 GOSUB 17 

1380 LOCATE PRINT 08 

1390 LOCATE È 

1460 NENT A 

1418 LOCATE 19,7T:PEN 3:PRINT "o ":PEN 1: 
LOCATE 21,T:PRINT WS$:PEN 2 

1420 PEN 1 


1430 FOR A=9 TO 14 

14460 GOSUB 1796 

1459 LOCATE 26-A,A:PRINT 0% 

14650 LOCATE 14+h, A :PRINT 0 

1470 LOCATE 27-A,A-1:PRINT "- " 

1459 LOCATE 13+A4, A-1:PRINTO" " 

1490 NEKT 

15060 LOCATE 12,14:FEN.S:PRINT "o ":FEN 1 
:LOCATE 14,14:PRINT U# 

1519 LOCATE 26,14:FEN 3:FRINT "o ":FEN 1 
LOCATE 28,14:PRINT Us 

1550 FOR A=106 TO 19 

1535 GUSUB 1796 

1540 LOCATE 40-A,A:PRINT 

1559 LOCATE Z26-A,A:FRINT 

15650 LUCATE sa AG:PRINT 

15709 LOCATE H:PRINT 0$ 

1550 LOCATE 4: A-1:PRINT 

15909 LOCATE 27-A,A-1:PRINT 

1509 LOCATE 13+8,A-1:PRINT 

1519 LOCATE -: A-1:PRINT 

1529 NERST A 

1530 LOCATE 7,19: S:PRINT "0 ":LOCATE 
93,19:PEN 1:PRINT W$:PFEN S:LOCATE 17,13: 
FRINT "o ":PEN 1 

1640 LOCATE 19, 43 PRINT W$:PFEN S:LUCATE 
Z1,19:PRINT "o ":PEN 1:LOCATE 23,19:FRIM 
T W$ 

1650 PEN 3:LOCATE 31,19: PRINT 

E 33,19:PEN 1:PRINT W$ 

16608 GOSURB 1796 

16570 LOCATE T,204:PRINT 08;" 

",0$;" ";0$;" ";08$;" Ò 

" "08 

165889 GOUOSUB 17968 

1590 LOCATE 65,26:PRINT 


1706 LOCATE è,21:PRINT 


LUCATE 


©5065 


60 


CO 3-31 -3 -3 


GOSUE 1 


7 
LOCATE 5 


k$= INKEY$ 
IF K&="r" 
GUTO 1760 
FOR D=1 TOT 
NEXT D: RETURN 


OR K$="R" 


THEN Ks$="":RUN 


PIANO 
4 OTTAVE 
49 NOTE 


Il programma trasforma un computer Amstrad in un Piano a4 

ottave per un totale di 49 note, che possono essere suonate 
tramite 25 tasti più il tasto SHIFT. 

Il piano va utilizzato con la tastiera in modo minuscole (sen- 

za premere quindi il tasto CAPS LOCK), inoltre per ascoltare 

le note ricordarsi di alzare il volume dell’altoparlante interno 

tramite l'apposita manopola sul lato destro del computer. 

| tasti che producono le note sono indicati nella tabella in - 
basso (il segno + indica il diesis). 


tasto nota ottava tasto nota ottava 


Q DO 1 SHIFTQ DO 3 
2 DO+ 1 SHIFT2 DO+ 3 
W_ RE 1 SHIFTW RE 3 
3 RE+ 1 SHIFT3 RE+ 3 
E MI 1 SHIFTE MI 3 
R_FA 1 SHIFTR FA 3 
5 FA+ 1 SHIFT5 FA+ 3 
T SOL 1 SHIFT T: SOL 3 
6 SOL+ 1 SHIFT6 SOL+ 3 
Y. LA 1 SHIFTY LA 3 
7 LA+ 1 SHIFT7 LA+ 3 
U SI 1 SHIFTU SI 3 
Z DO 2 SHIFTZ DO 4 
S DO+ 2 SHIFTS DO+ 4 
X RE 2 SHIFTX RE 4 
D RE+ 2 SHIFTD RE+ 4 
C_MI 2 SHIFTC MI 4 
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tasto nota ottava tasto nota ottava 
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FA 2 SHIFTV FA 4 
FA+ 2 SHIFT G FA+ 4 
SOL 2 SHIFTB SOL 4 
SOL+ 2 SHIFTH SOL+ 4 
LA 2 SHIFTN LA 4 
LA+ 2 SHIFTJ LA+ 4 
SI 2 SHIFTMSSI 4 
DO 3 SHIFT, DO 5 


MODE 1:INE G,1:INKE 1,26 

INK 2,11:INK 3,15 

PEH 1:FAPER 6B:BORDER 1:15 
SOUND 1,0,6,60:S0OUNI 2, 0G,6,6 
SOUND 4,06,5,0 


L&=CHR$ (2115: C$&=CHR8 135353 :M4#=CHR$ 1 


:£$=CHR$ 209) :D$=CHR$ (135. 
11350 


PRINT " ‘";L$;L$;L$;C$;C$;W$;" PIAN 


O 4_0TTAVE 49_H0TE ";4W$;D$;D$;2$;27$,2Z$ 


1145 
1158 
1166 
1176 
1156 
11596 
1260 
1Z18 


LOCATE 5,5 

FRINT "ATTENDERE UN’ATTIMO" 
DIM Nez55) 

FOR A=G TO 255 

HUA5=0GNERT È 

FESTORE 

FOR A=i TO 58 

FRERD K,ÈD 


NCK)=D 

MERT È 

LOCATE 5,5 

PRINT" 

K$=INKET$ 

IF K$<>"" THEN K=ASCCK$) 
TENGK) 

IF T>6 THEN SOUND 1,T,30,14 
K=8 

GUTU 1266 

DATA 113, 956,50,902,119,S51 
DATÀ 51,504,101,7T58 114,716 
DATA 53,67T6,116,638,54,602 
DATA 121,568,55,536, 117,506 
DATA 122,478, sd 31,120,426 
DATA 1600, dro 3793,119,358 
DATA 103,338, 295, ol 
DATA 115 

DATA 

DATA 

DATA” 

DATA 3: 

DATA 

DATÀ 

DATA 8 

DATA 
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PROGRAMMATORE 
DI SUONI 


Una caratteristica interessante dei computer Amstrad è cer- 
tamente il generatore di suoni a 3 voci. 

Con il Programmatore di Suoni è possibile modificare facil- 
mente e velocemente i valoriche determinano le caratteristi- 
che del suono fino ad arrivare al suono desiderato. 
Usando i tasti di cursore a destra e a sinistra è possibile sele- 
zionare la voce da modificare, mentre tramite i tasti cursore 
in alto e in basso è possibile scegliere il parametro da modifi- 
care. 

Poiché i valori massimi da inserire variano da 15 a 32767, è 
possibile scegliere anche il valore dell'incremento o del 
decremento tramite i tasti U (uno), D (dieci), C (cento) e M 
(mille); è importante tenere presente che se si cerca di 
decrementare un registro che si trova a 15 fino al valore di 8 
dopo aver selezionato un decremento, ad esempio di cento, 
il decremento non avviene finché non si preme il tasto U per 
ritornare al decremento di uno. 


Il parametro selezionato può essere incrementato o decre- 
mentato tramite i tasti + e — (da premere senza SHIFT) oltre 
a questi c'è il tasto A che consente di ascoltare il suono crea- 
to fino a quel momento e di avere anche le relative istruzioni 
SOUND ed il tasto CLR che azzera tutto e fa ripartire il pro- 
gramma. 


Da notare che all’inizio può sembrare che il programma non 
funzioni, infatti, per sentire ad esempio un suono dalla voce 
1, occorre prima alzare il volume dell’altoparlante incorpora- 
to, quindi inserire una frequenza, una durata ed un volume 
per il suono e premere il tasto A. 

Oltre ai parametri da inserire nelle istruzioni SOUND modifi- 
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cabili con questo programma, il generatore di suoni dispone 
anche delle istruzioni ENT ed ENV che consentono rispetti- 
vamente di scegliere l’inviluppo di tono e di volume. 

Una descrizione più dettagliata del funzionamento e dell’u- 
so delle istruzioni SOUND, ENT ed ENV è presente nel ma- 


nuale dei computer AMSTRAD. 
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INK 2,11:INK 3,15 

PEN 1:FAPER 6:EGRDER 1:CL5 

SOUND 1,65,6,0:S0UND 2,6, 

11060 SOUND 4,0,6,0 

1110 © 

11509 A$#=CHR# (211): B$=CHR# (133) :D$=CHF#1 
43) :E$=CHR$ (2609) :F&=CHR#$(135) 

11350 G#é=CHF# (150) :T$=CHR$(154):18=CHR8(1 
58 1:L$=CHR$ (149) :M$=CHR$ (151) :N&=CHR4&(15 
T3:0$=CHR$# (147) :5$=CHR$ (1535): G#8=CHR$ (154 
11460 P$=CHR% (155) :0$=CHR$ (1550) :H$=CHR&c1 
59) 

1150 Ré&=CHR$# (154) 

1160 T3=T#+T#+T#+T3+T$+T#+T% 

1176 PRINT" ";A#;fA8,;h#;B#;BE3;13;" PROG 
FRMMATORE DI SUONI “";D$;F8;F#;E$;E4;E# 
1150 bW$=G#+T%+P$5+T#+F$+T$+1%# 

1199 C#=M$+T%$+%$+T$+tX$+T$+N5 

1200 Ys=0#+T$+55+T#+2%3+T$+5$ 

1510 LOCATE 16,4:FPEN G:PAPER 

GE 1"; :PEN 1:FAPER @:PRINT " 

CE 3" 

12269 LOCATE 15,5 :PRINT W$ 


0 -]) MT UN La Ibi 


o Zi i i 


Sao Go @ Si 


un 
[ix 


1238 LOCATE 1,6:PRINT " TONO 
$;" 4 Sea Ap 


1249 LOCATE 15,T:PRINT £$ 
1:50 LOCATE 1,58: ‘PRINT " DURATA 
; ";L8;" [e] Val 
G LOCATE 15,9:PRINT £$ 
TU LOSATE. sg PGSG:PRINTO O" VOLUME 
[e] «L$y* 5 Let E 


LOCATE 15,11:PRINT Cs 
LOCATE 1,12:PRINT " RUMORE 
A CaLgit 9 ICE 


LOCATE 15, 15:FRINT VE 
LOCATE 46, PRINT de 
DIM Dil 12,9) 
W=ò:I=1:V=1:(C=16 
E$=INKEE 
i THEN E=ASCCESIi 
E=16 THEN FUN 
K=65 THEN BUSUE 1550 
3243 THEN GOSUE 1735 
241 THEN GUSUE 147% 
THEN GOSUE 16596 
THEN GOSUE iTua 
THEN GOSUE 1715 
THEN GOSUE 1726 
THEN GOSUE 1554 


1 


a 

o 
Dei 
o; 
n 
= 
2 
Pn 
2 
“= 
n 
“ 
teo 
“ 
Dal 


+ ci 


cm pei 
Ho uo W 


II LUI 


4 UN SI i co ha a 


PO PRES 


oso 
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K=0: 
OTO 1340 

H=" 

IF K=241 T 

IF k=2464 THEN 

IF 4=14 THEN 

IF =4 THEN 

LOCATE 4@0,H:PRINT " " 
LOCATE 460, :(PRINT O "<C" 


UMILI UNI Lai 
ubi de 


1548 RETURN 
1550 IF Y=6 AND K=45 AND DCY,4)-I3=0 THE 
N_DIY.VI=DCW,V)-I 

1560 IF Y=6 AND K=59 AND D<y,V)+1<4096 T 
HEN DIW,VI=D(Y,y)}+I 

1570 IF Y=8 AND K=45 AND Div,W}-1)=0 THE 
NODIY,VI=DCY,V)-I 

1580 IF Y=8 AND K=59 AND DCY,V)+I<32768 

THEN DEYW, V)}=DCY,V}+I 

1590 IF Y=10 AND K=45 AND DCY,W-I}=8 TH 
EN DCW,V)=DCW, VI -I 

1600 IF Y=16 AND K=59 AND Div, W)}+I<16 

EN Dew,W)=DCY,V)+I 

1610 IF Y=12 AND K=45 AND DiY,V)-1)=0 

EN DCW,W)=biW,V)-I 

1620 IF Y=12 AND K=59 AND Div, V)+I<16 

EN DCY,V)=bCw,V3+1 

1636 GOSUE 1656 

1640 RETURN 


1656 LOCATE C,Y:PRINT 
1660 D$=STR$(D(4,V3) 
1670 LOCATE C,vY:PRINT 
1689 RETURN 


1598 I=1:RETURN 
1750 I=19:RETURN 

1710 I=150:RETURN 

1726 I=1900: RETURN 

1730 IF K=243 THEN NV=V+1 

4740 IF K=242 THEN V=4V-1 

1759 IF V=08 THEN V=3 

1760 IF V=4 THEN “=1 

1TTO LOCATE 16,4:PRINT "VOCE 1 
VOCE 3" 

1730 C=V%8+8 

1759 PEN G:PAPER 1 

1560 IF V=1 THEN LOCATE ©,4:PRINT "VOCE 
1" 
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IF V=2° THEN, LUCATE ©, 4:PRINT "VOCE 


= un 


IF V=3 THEN LOCATE ©,4:PRINT "VOCE 


PEN 1:PAPER 6 

RETURN 

FOR x=1 TO 3 

IF X=3 THEN X=4 

Hg= "SOUND "+RIGHT$(S5TR$K},1) 
IF «&=4 THEN*&=3 

FOR L=6 TO 12 STEP 2 
J$=S5STR$&D(L,%3) 
J$=RIGHT$J$, LEN(J$)-13 
H$=H$+","+J$ 

IF L=165 THEN H$=H$+",0,6" 
NEXT L 

LOCATE 2,C(16+X%2) (PRINT H$;" 
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Lo 
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MEXTOK 
SOUND 1,D(6,13,0(8,1),D(10,1),0,0,0 


i 


2,D(6,2),D(8,2),D(10,2),09,0,1 


4,D6,33,D(8,3),D(10,3),0,0,D 


Mie Prc 
i i a i 
(e i Li MO CI N 1 
; sika 


cea i rt 


SIMMETRICO 


Questo è un programma di animazione che disegna sullo 
schermo delle linee orizzontali e verticali simmetricamente e 
contemporaneamente su quattro aree. 


MMETRICO X£% 


(12) 
LA] 
Gi 


mi i i 


MODE LE INK G.,A:INE 1,26:INK 
INK IN 4,4:INE 5,6:INK 
INK S.,11:INK 9,15 

INK 10 Le: ME 11, 1S:INE 12,24 
INK 13,23: 14, 2Z1:INK 15,5 
PEN 1:Ff  G:BORDER B:CL35 


Sio Do o © fi Gio Gi 
Gi Gi i 


appa pipppiHpHihHhp 


(EN 
= > 
i © Gi 


= E 0 I TI a Chi 


SOUND 1,0,60,0:S0UNI 2,0,0,8 
11360 li 4, 0,0,6 


1146 

4150 RANDOMIZE TIME 

1160 Da=60:DY=6 

1170 D=INTCRNDC1)X2) 

11860 IF D=1 THEN W=DK:D&=bY:DY=W 
11960 &=56tINTCRND(1/E2651 

1200 Y=56+INT(RND(15%145) 

1216 SR=INTCRND(13%4) 

1220 C=1+INTCRNDC13$155 

1230 IF SR=69 THEN GUSUE 1266 
1240 IF SR=1 UR SR=2 OR SR=3 THEN 
SUB 1310 


DRAV O K-DA,V-DV., 

-K, 4: DRA 539- -EDR, 4- DY,C 
399 -t:DRAM X-DX,3399-Y+DY,C 

“3393-41 :DRADI 639- X+DX, 359 


Mov] 
a 


{0% flton Dot 


oi 
= 


a] 
Al I «LI 


RETURN 


(ere e i (iii lle 


TIRO 
ALLA FUNE 


Il tiro alla fune è un gioco per due persone. 

All'inizio appaiono sullo schermo due omini stilizzaticon una 
fune. 

L’omino di sinistra viene comandato dal tasto A mentre quel- 
lo di destra dal tasto L. Ogni volta che appaiono le due stelle 
al centro dello schermo il giocatore che preme per primo il 
proprio tasto ha la possibilità di tirare i due omini dalla sua 
parte, se però uno dei giocatori preme il proprio tasto prima 
che appaiano le stelle, i due omini si sposteranno nel senso 
opposto favorendo l’avversario. 

Il gioco continua finché uno dei due giocatori riesce a trasci- 
nare l'avversario completamente nella propria zona. 
Iltempo di apparizione delle due stelle ed il ritardo tra una ap- 
parizione e l’altra sono casuali e vengono stabiliti rispettiva- 
mente dalle linee 1340 e 1280 che possono essere even- 
tualmente modificate per rendere il gioco più difficile. 


za 


(ont Lo I] 


{ci Gruppo Editorial 


WI 4 ca fo pa 
naecagaae 


Si 


L 
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1 
i 


ma 
Ta 


BORDER 1:FAFER G:PEN 1:CL5 
SOUNE 1,0,4,0:S0UND 2,6,0,0 
SOUND 4,6,6,0 


U$=CHR$ (224) :0$=CHR$(159):2$=CUHR$1 


:&=CHR$C127):B$=CHR$(154):J8=CHR$C15 
V&=CHRE(1ST) 

D&=CHR$ (156): V$=CHR$(150):G8=CHR$(1 
:RE=CHR$(147):F$=CHR$(154):ME=CHRSC14 


B3=B#+E4:B4=E#+b4 :b$i=Bi+E# 
EB$=E% 
Sd LOCATE 11,6:PEN 1:FRINT W$:LOCATE 
(PEN 2: PRINT hs 
; i 41, T:PEN i:PRINT 0$;2%;E#8:L0 
T:FEN 2:PRINT BE8;2%;0$ 
LOCATE 1i,S:PEH i PRINT I8;/0%:LOCAT 
PEN SPRINT VENE 
LOCATE ii, 3:FENH 1:PRINT Ré&;F$:LOCAT 
2: NT GE, 


LR eosellli DAR pico) 


[RRIED 


AZZ cul I 


a 


= 
Len 
ia i 


\1G:PEN SPRINT K$ 


20 papa ha 
i Ra ha 


Sn 


COLARE dg tsh 4/PRINT V&;F$&;08:L00 
SPRINT V&,F#(0$ 
«PEN 1:FRINT ME; "A" M48:L0 


LOCATE 02 
39, 2:FEN SPRINT Ma; "LC"; ME 


LOCATE i1,3:FEN 1.FRINT R&;F&;64:L07 
35,3:PEN Z:FRINT E$#;F$8;6% 
FPANDOMIZE TIME .(F=5 

M=-i 

LOCATE 20,4 :FRINTO" 

FOR A=i1 TO 2660+END (10 £30L 
K&= INEEN 

IF K$<>"" THEN GOTO 

HESIT A 

M=1 

LOCATE 26,4 :(FEN S:FRINTO "KE" 
FOR A=1 2? 3G+END (11466 
KE=IHEEN 

IF Go THEN 6GGOTO0 13598 
MEST A 

GOTO 1266 


(1eN 
A AL TL 
Ual zi Zu i Za a 


ù 


a i i 


fon 
Dai 


SIOE Va O O 0 03 GI fia Pa bo fo pa 


a SIT AMO i fe 8a 


ps: 
pori 


paope papa pod peo pa pagane pa 


Dori 


IF K$="&" OR Ks="a" THEN F=P-M 
IF K$="L" OR Ks="1" THEN P=P+11 
LOCATE 1,6 :PRINT " 
20 LOCATE F,6:PEN 1:PRINT W$:LOCATE F+ 
3.6 PEN 2:PRINT MS 
:9 LOCATE 1,7:FRINT " 
LOCATE P,7 PEN 1:FRINT 0$;28;E$:L0î 
ATE P+10,7:PEN 2:PRINT BE$,28;0$ 
1450 LOCATE 1,8:PRINT " 
1460 LOCATE F.8:PEN 1:PRINT J$;0$:LOCATE 
P+19,8:PEN 2:PRINT V8; 
1470 LOCATE 1,9:PRINT " 


PEN 
PRINT 


ua 
edi 


(4 


i Hi da 
UTI INOI L T la 


If F=i TREN PEN 1:PRINT "Nince —F" 
LP Peel THEN PEN 2:PRINT "Vince L" 


> P3oda 


LOCATE 16,15 PEH i PRINT "PREMERE 6 
n CARE" 

= IHEE N 
+ EE03 "o" aND Kg "a" THEN GOTO 15 


a 
AGENTI 
mi 
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non lee I) 
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mi 
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ROULETTE 


Il programma realizza una Roulette completa di sonoro. La 
richiesta di un numero avviene premendo il tasto N. 


*X% ROULETTE #X% 


MODE L:INK 8,18:INK 1,8 

INK 2,6:INK 3,26 

PEN 3:PAPER 1:BORDER 1:CL$ 
SOUND 1,0,0,0:S0UND 2,0,9,0 
SOUND 4,0,5,0 


DIM PC37): DIM Ic37T):DIM NUM$C37) 
C=1:L=11:H=9 
FOR A=353 TO @ STEP -9.729 


K=PI/150%8 

K=260KC05KK3+315 
Y=139XSINCK3+210 

READ P.,I,N$ 
Pic)=P:10C3=1:NUM$ (C)=N$: (=C+1 
IF P=3 OR F=0 THEN GUSUB 1364 
K=%-1 

PEN I 

N=à45CC(LEFT$(N$,1))-45 

GOSUB 16536 

M=R+15 

N=ASCCRIGHT$(N$,1))-485 


HEX 


Dr 


THEN GGOSUE 1426 


Tazio TI es PI DI IT 


STEP - 


Paopaopa 


Lo 4 dio Se Le a a 0 TI da) 


[ne 


a 
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Si i Si 
STRO nm 


n ba a 
A] 
al Ni mini 


i 
N 
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[aost] 
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U 
Ho 


Sa mia 
Zi Eu 
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21 9 WI 4 
a aza 


HA tr Pei 


CI) 


(IDO 
to I: > o n 


cBA-159%5 

PLOT A, È 

PLOT A+1,E, 

PLOT A, EFtl, 3 

PLOT &+1, B+1,3 

FOR T=1 TO SG:NHERT T 


PD ATLIO Lo bo 
at gn ann 
i Za 


AE Sl 0 UT LIS e a 
[20v] 


pa 
[Lot BOT o] 


pi 
Dot 


i 4 i i 


Po pa pa pa peo pa pa pio pio piopio papa be 
i 


(host) 


"TAMA ANN un 


road 
n 
(n° 


16209 GUSUB 16858 
1630 X=K+22 

1640 N=ASCCRIGHT$(N$,1))-45 

1650 GOSUE 16830 

1660 PEN 3 

1678 RETURN 

1630 IF N=-16 THEN RETURN 

16930 IF N=0 OR N=2 OR N=3 OR N=5 OR N=6 
OR N=7 OR N=5 OR N=9 THEN PLOT &,4,I:DRA 
4 K+L,Y.I 

1TG8 IF N=2 OR N=3 OR N=4 OR N=5 OR N=é 
OR N=8 OR N=3 THEN FLOT K,v-H,I:DFRAN X+4L 
sYeH,I 

1718 IF N=6 OR N=2 OR N=3 OR N=5 OR N=6 
OR N=8 OR N=3 THEN PLOT X,vY-H-H,I:DEAM X 
+L,Y-H-H.I 

1720 IF N=6 OR 1 OR N=2 OR N=3 OR N=4 
OR N=T OR N=5 OR N=9 THEN PLOT K+L,Y.,I:b 
RAM K+L,Y-H, 

1730 IF N=98 ° N=3 OR N=4 OR N=5 
OR N=6 OR N=T OR N=85 OR N=9 THEN FLOT + 
L.t-H,I:DRAM X+L," 

1740 IF N=0 OR i 4=S THEN PL 
OT %,#-H,I:DRAW X 

1750 IF N=0 OR 4 OR ; UR Nsé OR N=3 
OR N=3 THEN PLOT K,,I:DRAM K,#-H,I 

1769 RETURN 

ite DITA Lit ei 2611 
Mic: È puffi 

LISO DATE = 1,*20°1,2, 4384 

9 LIEOC TR Rea 

1798 DATA 1,2,"18",3,1,"29",1,2, 
elia 

19600 Dath 9,4, *95*,1,2)° 33,1, 

fel :0",1,2,"32" 

URTO DATA 3,i, "15° 1219845 

PAL E Ue do 
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1820 DATA 1,2,"25",3,1,"17",1,2,"34",3,1 
,6 oa 


T830 DATA 3, 1,*13",1t,2:"36* I; 11°, 1,2 


; "36";3.,1,"S " 
1940 DATA 1,2,"23",3,1,"10" 


FLIPPER 
GIAPPONESE 


In questo Flipper Giapponese, trenta palline cadono dall’al- 
to attraverso una serie di chiodini, finendo in modo casuale 
su dei punteggi diversi, punteggi che vengono automatica- 
mente sommati al totale. 


Dori 
Do] 


&XX FLIPPFER GIAPPONESE £$4% 


Gaetano Marano 


ao 


DA 
{oi 


Zi o 
aaaeaoa a 


DIC] 
CO +] T 0 a (O I 


INK 2,6:INK 3,24 
PEN 1:PAPER d:BORDER 1:CL$ 
SOUND 1,0,0,0:S0UND 2,0,9,8 


(hcu] 


soul 


prapeprpipEpEH E 
mi 


ho] 
mei 
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N$=CHR$(143) 
N&=N$+N$+N3+N5+N5+N$ 

PEN 3 

LOCATE 14,2:PRINT N$;" ";} 
A$=CHR8(155)+CHR$(32) 
ASSAS+AS+A i 

PEN 1 

EGR A=G TU 12 

LOCATE 18-A,4+A:PRINT A$ 
AS=À$+CHR$(155)+CHR$(32) 
NEXT A 

PAPER 3:FEN 6 


(:FRINT 


S:PRINT 


HAI A 


o 
[nor] 
m 
(9 10 


6, 19:FEINT 

PEN 1:FAFER 6 

LUCATE 19,21 :PRINT "FREMERE 

E$= INKEY$ 

IF KE#03"6" AND Kks<"a" THEN GOTO 12 


AZ a fa 


fed Do pat 
ZI 0 00 =] 
Zi Zi dc 

SO 

m 


lt az I fi I Di fata fa 


Ha ubi 
(ee 
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LOCATE 10,21 PRINT" 

1550 FEN d:FAPER S:LOCATE 135,253:PRINT "F 
FATELO ":PEN 1:FAPER & 
S=04:RANDOMIZE TIME 

$=CHR8 231) 


PRINT Ai" " 


i 260,z:PRINT F$:FOR T=1 TO 456 
‘HEX TT:LOCATE 28, SPRINT O" "LOCATE 280, 
PRINT F$:LOCATE 20,35:PRINT " " 

FOR K=1 TO 13 

H=RNDGC13 

IF HX6.5 THEN H=-1 

IF H>=6,5 THEN H=1 

LOSATE C,L:PRINTO" " 

L=L+1 

LOCATE c+H,L:FENH 2:PRINT F&:FEN i 

PRINT CHRS (TI 


21 THEN S=: 
23 THEN S=: 


ay NON 


(S3:LOCATE 309,23:PRINT 6$ 


i 
1 
i 
i 
1 
1 
1 
i 
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GOTO 1256 
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ROMBOSPIRALE 


Altra animazione è Rombospirale che disegna e cancella al- 
ternativamente e in continuazione, una spirale a forma di 
rombo formata da caratteri e simboli scelti casualmente. 


#%% ROMBOSPIRALE X£% 


[100] 
£» bi 
[107] 


Zi Ai 


a Gi 


VASTO 
Mi 


Ls 


INK 2,6:INK 3,24 

PEN 1:FAPER 0:BORDER 1:CLS 
SUUND 1,0,0,0:S0UND 2,0,60,6 
SOUND 4,0,5,0 


GUSUEB 13586 

FOR P=1i TO 11 

LOCATE P+16,14-P:FRINT CHR$CK) 

MEKT P 

FOR N=1 TO 11 STEF 2 

GOSUB 13836 

FOR P=1 TÙ 12-N 

LOCATE 20+P,1+P+N:FRINT CHR$GK3I 

NEXT P 

GOSUB 13586 

FOR P=1 TO 12-N 
1248 LOCATE 33-P-N,12+P:PRINT CHRESCK) 
1250 NEKT F 


GOSUB 1336 

FOR P=1 TO 11-N 

LOCATE 22-P,25-P-N:PRINT CHR$(X) 
NEXT P 

GOSUB 1380 

FOR P=1 TO 11-N 

LOCATE 18+P+N,15-P:PRINT CHR$CK) 
NEXT P 


NEXT N 
C=3C%(-1) 
X=32 ° 


GOTO 1132 

IF C=1 THEN K=33+INTCRND(1)%222) 
PEN 1+INTCRND(1)X3) 

RETURN 


ilo lai 


Gli Amstrad presentano un ottimo rapporto prezzo/prestazioni e 
caratteristiche tecniche molto significative: grafica ad alta risolu- 
zione, generatore di suoni, eccetera. Particolarmente interessan- 
te è il Locomotive BASIC che, oltre a essere tra i BASIC più 
completi, dispone anche di alcune innovazioni come le istruzioni 
AFTER e EVERY che offrono all'utente alcune forme di multita- 
sking: il particolare l’eleborazione alternata di più parti del pro- 
gramma. 

Le molte caratteristiche avanzate di questa macchina vengono 
sfruttate nei programmi presentati, vari tra loro: si va dalla grafi- 
ca, alle utility, ai giochi. Programmi quindi pronti all'uso da analiz- 
zare, far girare, giocarci... 


Elenco dei programmi: 


e Istogrammi verticali 
elstogrammi orizzontali 
eCilindri 30 

® Design caratteri 

e Disegnatore grafico 

@ Plotter 

®Curve matematiche 
eNew York 

e Disegni di linee 
®ltalia 

eNumeri digitali 

@ Lettura veloce 
eCronometro 

e Scritte pubblicitarie 
eContapezzi 

eFisica dei reattori nucleari 
®Piano 4 ottave 
eProgrammatore di suoni 
®Simmetrico 

eTiro alla fune 

® Roulette 

@ Flipper giapponese 

e Rombospirale 


Cod. CC330 ISBN 88-7056-436-3 


Programmi per Amstrad 
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